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3 1 001 MODULE DIRACC ( 

; g Oe LANGUAGE (BL SS 5¢) « 

3 § IDENT = ‘'VO4- 

me 005 1 BEGIN Ss 

; $ 809 i ' 

M4 8 0008 ; | SeeoecnneeneneenrerenontenTeTesnesaoRNneneneNeTeNereneeseNenenarenenernedaes 
° :* ® 
: 10 0010 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
4 11 Bot3 1 !* DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. * 
: \¢ pots } it ALL RIGHTS RESERVED. : 
: 14 0014 1 i THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
> 0015 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
: 16 B09 1 ! INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
s 17 001 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
; 18 0018 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
; i 984 ; it TRANSFERRED. * 
P 4 * 
; 1 0021 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
3 ¢ 00 § 1 !'® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
3 $7 80 Z : ts CORPORATION. * 
° 4 ® 
: 25 0025 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
: 26 0026 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
: Sh 0058 | is ; 
: $0 ot : PITTTITILILILILILI LILLE LL LLL TILL Liiiiiiiiiiiiiiiiiiiiiie 
; 3 bos di 

; 33 0038 ! FACILITY: F11ACP Structure Level 1 

: 35 0035 i ABSTRACT: 

or 0037 1: This routine ‘accesses’ a directory and readies it for processing. 

: 3 4 : ENVIRONMENT : 

; 40 0040 1} STARLET operating system, including privileged system services 

3 rt seg : and internal exec routines. 

: rk $068 1 ie. 

: # bes] i 

: $6 3 ' AUTHOR: Andrew C. Goldstein, CREATION DATE: 2-Jan-1977 22:53 

: 48 : 1 | MODIFIED BY: 

>: «649 049 1! 

; @ 0050 1! v03-002 LMP51262 L. Mark Pilant, 13-Dec-1982 15:47 

; 1 je. Create non-contiguous eirectory file windows with a valid 

: ; O26 ' } PID so they are not taken as shared windows. 

: 54 054 1/3 v03-001 LMP0025 i. Mark Pilant, 17-May-1982 13:50 

3 5 ae Fix a bug that caused the system to crash if the users byte 

: 2$ $26 ! H quota was exhausted while creating a divsctory file. 
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Previous revision history moved to F11A.REV 
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-1984 00:57: VAX-11 Bliss 
iEseoct9pe 00:57:44 yatedt us 
! v02-002 ecedece Andrew C. Goldstein, 22-Dec-1981 19:49 
Count directory LRU hits and misses 

i v02-001 ACG33975 Andrew C, Goldstein, 13-Mar-1981 15:46 
x losing directory FCB's when LRU is disabted 

v02=000 ACG0167 Andrew C. Goldstein 18:49 
; 


LIBRARY ‘SYSSLIBRARY:L1B.L32'; 
REQUIRE 'SRCS$:FCPDEF.832'; 
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GLOBAL ROUTINE DIR_ACCESS (FIB, WRITE) : NOVALUE = 


arn 


144 
i 


FUNCTIONAL DESCRIPTION: 
This routine ‘‘accesses'' a directory and readies it for processing. 


i CALLING SEQUENCE: 
i DIR_ACCESS (ARG1, ARG2) 


i INPUT PARAMETERS: 
: ARG1: address of FIB 


Se 


ARG2: 0 if read onl 
1 if reed/urite 


SOOO OS 
0OO0o0000 
NOUS WIN —O0Oo uw 


count of directory LRU misses 


es 1 

; i 1 

; «66 1 

oe :. 1 

. gf 1 

s 7 1 

; = 1! 

re 1! 

; 0 7? 

: 1 1! 

3 1} 

: : 1! 

: 4 1! 

; $2 1! 

3 1} 

; 7 00 1! 

3 8 0401 1 ! IMPLICIT INPUTS: 

; 689 be08 1! NONE 

we. 0403 1! 

; 0404 1 ! OUTPUT PARAMETERS: 

; 4 0405 1! NONE 

wD . 04 & 

. | 0407 1 ! IMPLICIT Oyreurss 

s 0408 1! DIR_FC8: address of FCB for directory 

; © 0409 1! DIR “WINDOW: address of window, if any 

; Wy 0410 1! 

; B® 0411 1 ! ROUTINE VALUE: 

; Bol¢ 1! NONE 

; 100 0413 1! 

: 101 0414 1 ! SIDE errectss 

: 1¢ 0415 1! FCB and/or window may be created 

: 10 Bsi9 1! directory LRU may be altered 

: 104 0417 1! directory file header may be read 

; 105 Beis 1! 

3; 106 419 1 !-- 

; 107 0420 1 

; 108 0421 BEGIN 

3: 109 04 ; 

; 110 04 MAP 

ae bb 0424 FIB : REF BBLOCK; ! FIB argument 

3 6 0425 

; 1 04 $ LOCAL 

3; 61146 04 TEMP, ' temp aterege for file header address 
s 195 04 3 FCB : REF BBLOCK, ! FCB addre 

; 116 04 HEADER : REF BBLOCK, ! directory header address 

3 at 4 4 ? MAP_AREA : REF BBLOCK; ! address of file header map area 
: 4119 a3 EXTERNAL 

: 120 4 DIR_FCB : REF BBLOCK, ! global FCB address 

3 \$) Be DIR_WINDOW : REF BBLOCK, ! global window addre 

a 2 ¢ 435 FILE HEADER : REF BBLOCK, ! global file header” ~ FN 
i; oe 4 10_PACKET : REF BBLOCK, ! I/0 Mo pa packet 

: 124 PMS$GL_DIRHIT : ADDRESSING_MODE (GENE 

3 125 4 ! count o directory LRU hits 
: 139 : PMS$GL_DIRMISS : ADDRESSING_MODE (GENERAL); | 
: 128 4 


oe 
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DIRA 16-Sep-1984 00:57:44 VAX-11 Bliss-32 V4.0-74 Page 4 

yO4-060 12-800= 1382 90:30:39 DISKSVMSMASTER:CF11A.SRCIDiRACC.B32; 1 9 02} 

EXTERNAL ROUTINE 
SEARCH _FCB 
READ_HEADER, 
CREATE _FCB 
CREATE WINDOW, 
CHECK PROTECT, 
MAKE _BIR_FCB; 


On 


search FCB List 

read file header 

create an FCB 

create a file window 
check file protection 
put directory FCB in LRU 


First find the FCB of the directory, if any exists. 


HEADER = 0; 
IF (FCB = .DIR_FCB) EQL 0 
THEN 


assume no header 


BEGIN 
FCB = SEARCH_FCB (FIBCFIBS$W_DIDI); 


! If there was no FCB, or it is an accessed file, read the header. 
! If the FCB is in the LRU, check the sequence number since no 
one else does. If there was no FCB, create one. 


cea” -FCB EQL 0 THEN 1 ELSE (NOT .FCBCFCBSV_DIRJ)) 


BEGIN 
PMSSGL_DIRMISS = .PMS$GL_DIRMISS + 1; 
MP =".FILE_HEADER 


4 

3 

4 

d i 
? HEADER = READ_HEADER (FIBCFIBSW_DIDI, -FCB); 
4 

3 

4 

4 

4 

| 
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FILE_HEADER = .TEMP ! restore address for cleanup 


oO 
FREER 
SNS NN 


IT + 1; 
F LBCFIBSu_D1D_sEQ] 


NO 


IF .FCB EQL 0 
THEN FCB = KERNEL_CALL (CREATE_FCB, - HEADER) 
LN ee = .FCB; ! store global FCB address 


SRLSF 


: Check directory file protection. 


CHECK_PROTECT (.WRITE, .HEADER, .FCB); 
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90 ' If we read a header, check the file attributes to make sure that 
$3) } this is a real directory file. 

98 : 

94 2 IF .HEADER NEQ 0 

95 THEN 

39 MAP_AREA = ,HEADER + ,HEADERCFH1$B_MPOFFSETIJ*2; 

98 IF TBBLOCK CHEADERCFHI$W_RECATTRJ, FATSB_RTYPE) NEQ FATSC_FIXED 
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REVLSSSLE 
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ts 
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9 
1 
5 
8 
8 
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OR .BBLOCK CHEADERCEHISW RECATIRY, FATSWRSIZE] NEQ 16 
OR :MAP_AREALFM1 -EX_SEGNUM NEQ 

OR :MAPAREALFM1$W-EX~FILNUM) NcQ 

OR :MAP"AREACLFM1$W~EX-FILSEQ) NEQ 

THEN ERR_EXIT (SSS"BADIRECTORY); 


Arbitrate the access interlocks. 


IF .FCBCFCBSV_EXCL ! check for exclusive access 


CLI 
THEN ERR_EXIT (SS$_ACCONFLICT); 
IF wall 
AND .FCBLFCBSW_LCNT] NEQ 0 
THEN ERR_ERIT (SS$_ACCONFLICT); 
If the file is not contiguous, construct a window. 


! if write access desired 
! and file locked against writers 


IF .FCBCFCBSL_STLBN] EQL 0 
AND -DIR_WINDOW EQL 0 


BEGIN 
DIR_WINDOW = KERNEL CALL (CREATE WINDOW, 0, 0, .HEADER, .IO_PACKETCIRPSL_PIDJ, .FCB); 
Fs DuR WINDOW EQL 0 THEN ERR_EXIT (SS$_EXBYTLM); 


} Make the final diddles for the FCB to be useful for directory searches. 


KERNEL_CALL (MAKE_DIR_FCB, .FCB); 
RETURN 1; 


1 END; ! end of routine ACCESS_DIR 


R_FCB, DIR_WINDOW 
F HEADER, “1 
GL_DIRHIT 
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-PSECT SCODES,NOWRT,2 


007¢ 0 .ENTRY DIR ACCESS. Save R2,R3,R4,R5,R6 
56 000000006 2 9 0 HOVAB OaSTSSCHKRNL, R6 
53 00006 cr if ‘ HOVE R_FCB, FCB 
52 e A 1 MOVL IB, R2 
BR 5 5 1 NOek2) 
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DIRA 16-Sep-1984 00:57:44 VAX-11 Bliss-32 V4.0-742 Page 
¥O4-000 19-808- 1388 99:35:36 DISKSVMSMASTER:EFIIA.SRCIDIRACC.B32:1-9 (2 
00006 cf } F 19 CALLS #1, SEARCH_FCB : : 
3 C MOVL RO. FCB : : 
BEQL } : 0465 : 
1F AS E BLBS 4(FCB), 2$ : : 
000099 6 00 D 1$: INCL  PMSS$GL_BIRMISS + 046 ; 
55 G g D MOVL FILE_HEADER, TEMP > 04 ; 
BD PUSHL FCB + 0470 : 
OA A2 OF PUSHAB 10(R2) : ; 
00006 CF F 7 CALLS #2, READ_HEADER : ; 
4 08 0 C MOVL RO, HEADE : 
00006 CF ; pg i MOVL EAP, FILE_HEADER ; ee : 
46 28: NC PMS$GL_DIRHIT + 0475 : 
ac ag mona HR Rs ats TR, Gare mL Bel 
oes SF oF 033 BEG #2232 + 0477 ; 
4 RET : : 
53 D3 5088 3$: TSTL FCB > 0480 : 
10 12 0005A BNEG 46 4$ : ; 
gi GB Ensee ust pen oat ed | 
D 0006 PUSHL SP : 3 
00006 ef oF 006 PUSHAB CREATE_FCB : : 
$6 98 F beg CALLS #4, SYSSCMKRNL : : 
5 09 06 MOVL RO, FCB ; : 
00006 CF 33 DO 0006¢ 48: MOVL FCB, DIR_FCB i 0482 : 
3 DD 00071 5$: PUSHL FCB > 06 : 
oo Ae RR AUTEUR toes 7 ; 
00006 CF $ FB 00078 CALLS #3, CHECK_PROTECT ; : 
tt Bie Tsit” HEADER eal 
50 01 AS 9A 00081 MOVZBL (HEADER), RO : 0497 : 
20 6440 e 0085 MOVAW (HEADER) CROJ, MAP_AREA : : 
31 OE at 8h b00aD coe OR — 
14 12 0090 BNEQ ieee F : 
10 02 al 8 009 CMP e(R1), #16 ; 0499 ; 
66 9 0098 TStB — (HAP_AREA) ; 0500 : 
02 AQ 85 0009¢ TSTW =. 2(MAP_AREA) ; 0501 ; 
04 Ap e Ts (MAP_AREA) ; 0502 ; 
0828 BF BF 68: CHMU #2088 ; 0503 : 
09 22 a3 03 €£ AB 7$: BBS #3, 34(FCB), 8$ > 0509 ; 
A BLBC wRITE, 9$ : 0511 : 
™ 9 AS 5 ist 0(F CB) ; 0512 3 
0800 8 BF O00B9 BS: = CHNU #2048 ; 0513 ; 
4 RET PY ° 
30 a3 p BE 9S: TSTL 48¢FCB) : 0518 : 
oo00s fF Pee NTR WINDOW : 9519 : 
sf } BNEG Obs : ; 


DIRA 18- Sep-1984 00:57:44 VAX-11 Bliss-32 V4 42 
Vv “500 1 ~300n 138% 99:35:39 DISKSVMSMASTER:CF1 TiR She IDIRACC.832; 49 
53 D C9 PUSHL cB 
50 ooges CF BO C VL 19 PACKET, RO 
C 4 0D D PUSHL TRO) 
; bp i) PUSHL EADER 
3 C i) CLRQ =(SP) 
dD i) PUSHL # 
E gD 09 SHL 
0000G CF 9F dB PUSHAB CREATE_WINDOW 
66 F DF CALLS #8, SYSSCMKRNL 
000%G CF 0 ES MOVL RO, DIR_WINDOW 
1 E BNEQ 1 
2A14 f iH e9 CHMU #10772 
4 ED RET 
3 DOD 4 10$: PUSHL FCB 
1 OO F PUSHL 4) 
—E oD Fe PUSHL SP 
00006 be F F4 PUSHAB MAKE 
66 FB OO0F8 CALLS #4, EY eSTHKRNL 
04 000FB RET 
; Routine Size: 252 bytes, Routine Base: S$CODE$S + 0000 
3 $1 0336 1 
3 ; 0535 1 END 
; de 0536 0 ELUDOM 
; PSECT SUMMARY 
3 Name Bytes Attributes 
: SCODES 252 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
: Library Statistics 
: cooccoce Symbols -------- Pages Processing 
: File Total Loaded Percent Mapped Time 
: _$255$DUA28:(SYSLIBILIB.L32;1 18619 21 0 1000 00:02.0 


COMMAND QUALIFIERS 


: BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:DIRACC/OBJ=OBJ$:DIRACC MSRC$:DIRACC/UPDATE=(ENHS:DIRACC) 
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0533 
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; pize; 252 i 0 data bytes 
4 
2 
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